home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagn_r.zip / NETWORK.SWG / 0017_Using Novell?.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  509 b   |  31 lines
  1. {
  2. > Is there a way to detect if a system is running under Novell Netware?
  3. > There must be an interrupt to do that, but wich one?
  4. }
  5.  
  6. Uses
  7.   Dos;
  8.  
  9. Function stationno : byte;
  10. var
  11.   B : byte;
  12.   Regs : Registers;
  13. begin
  14.   With Regs do
  15.   begin
  16.     ah := $DC;
  17.     ds := 0;
  18.     si := 0;
  19.   end;
  20.   MsDos( Regs ); {INT $21,ah=dh}
  21.   b := Regs.al;
  22.   stationno := b;
  23. end;
  24.  
  25. { Should return 0 if not attached to a novell server otherwise
  26.   workstation number }
  27.  
  28. begin
  29.   Writeln(StationNo);
  30. end.
  31.